home *** CD-ROM | disk | FTP | other *** search
/ Baywatch Hawaii 2000 & 2001 Season / Baywatch Hawaii 2000 & 2001 Season.iso / pc / Resources / BaywatchIPK.dcr / 00034.ls < prev    next >
Encoding:
Text File  |  2000-08-18  |  251 b   |  14 lines
  1. property myNum, myName, myLeft
  2. global gProgBar
  3.  
  4. on beginSprite me
  5.   myNum = gProgBar
  6.   myName = member(sprite(myNum)).name
  7.   myLeft = sprite(myNum).left
  8.   sprite(myNum).width = 0
  9. end
  10.  
  11. on showProg me, val
  12.   sprite(myNum).right = myLeft + (val * 2)
  13. end
  14.